home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / sd3240b5.exe / _SETUP.1 / remote.ini < prev    next >
Encoding:
INI File  |  1997-03-18  |  53.4 KB  |  1,300 lines
  1. [Variables]
  2. n0=%idle 1800
  3. n1=%allowed 1
  4. n2=%swear On
  5. n3=%flood 4
  6. n4=%channel On
  7. n5=%chanflood 5
  8. n6=%nickflood 4
  9. n7=%number 2
  10. n8=%active On
  11. n9=%ratiostatus On
  12. n10=%gamble On
  13. n11=%joinad Off
  14. n12=%block Off
  15. n13=%ratio 2
  16. n14=%start 200000
  17. n15=%horse1 Snibbug
  18. n16=%horse2 Zoom
  19. n17=%horse3 Vrooom
  20. n18=%maxsends 20
  21. n19=%maxgets 5
  22. n20=%messages 1
  23. n21=%go 4
  24. n22=%ready 2
  25. n23=%away 0
  26. n24=%loop 37
  27. n25=%currentad 100
  28. n26=%email woolls@sat.net
  29. n27=%pop mail.sat.net
  30. n28=%connect 3333085201
  31. n29=%pos 6
  32. n30=%ver  2░14¿10¿2░14║10⌐2º14t10«14┼10±14g2╚ 2D14σ10Ñ2º 2(-)10δ2╫10⌐14║2░10¿14¿2░ 4v4.0 ▀eta3
  33. n31=%numbers 0123456789
  34. n32=%lwnick.1 TRiPi
  35. n33=%lwnick.2 DoGGirL
  36. n34=%lwnick.3 Black_Talon
  37. n35=%lwnick.4 krysta
  38. n36=%lwnick.5 Bolthar
  39. n37=%lwnick.6 Bolthar
  40. n38=%lwnick.7 ^krysta^^
  41. n39=%lwnick.8 Bolthar
  42. n40=%lwnick.9 Bolthar
  43. n41=%lwfile.9 speaknow.wav
  44. n42=%lwfile.8 3intool.wav
  45. n43=%lwfile.7 trippy.wav
  46. n44=%lwfile.6 awaken.wav
  47. n45=%lwfile.5 crap.wav
  48. n46=%lwfile.4 fosters.wav
  49. n47=%lwfile.3 disco.wav
  50. n48=%lwfile.2 netsplit.wav
  51. n49=%wavrcvd.nick TRiPi
  52. n50=%macro.f10 /wavplay
  53. n51=%macro.f11 /sound #testchanl
  54. n52=%macro.f12 /remove c:\6shooter\wavs\
  55. n53=%protectchan #teensex *
  56. n54=%currentchan #101club
  57. n55=%kickwords go to join invite come cum cool
  58. n56=%fservewords access login pass upload get my big avail
  59. n57=%tradewords swap trad change 
  60. n58=%prsnlwords me your sel pers
  61. n59=%swp ALLOWED
  62. n60=%ctfp On
  63. n61=%pbp On
  64. n62=%ifp On
  65. n63=%notfp On
  66. n64=%mfp On
  67. n65=%trd Not Allowed
  68. n66=%afp On
  69. n67=%dccbomb On
  70. n68=%tfp On
  71. n69=%jfp On
  72. n70=%nfp On
  73. n71=%pagr ON
  74. n72=%amc OFF
  75. n73=%ajk On
  76. n74=%rab On
  77. n75=%mdp On
  78. n76=%dck On
  79. n77=%cad NOT ALLOWED
  80. n78=%p Off
  81. n79=%friendlevel 200
  82. n80=%nops 32
  83. n81=%ctcp 0
  84. n82=%fops 4
  85. n83=%appl 4
  86. n84=%vppl 4
  87. n85=%found 0
  88. n86=%enem 0
  89. n87=%clns 1
  90. n88=%nclns TRiPiRC^away
  91. n89=%iropn ""
  92. n90=%kickchan #scriptwars
  93. n91=%kicknick |0-Cool|
  94. n92=%prsnlpics On
  95. n93=%joins 1
  96. n94=%stat.time 3:55pm
  97. n95=%indent áá
  98. n96=%colour 2
  99. n97=%wfilename sounds.txt
  100. n98=%dccr On
  101. n99=%pinger.count 0
  102. n100=%ping.time 1
  103. n101=%ping.nick |OvErRiDe|
  104. n102=%clist 0 *!*@dam-as10s46.erols.com *!*@TCHM10A13.RMT.UTK.EDU *!*@t8o20p1.telia.com *!*@dialup-bne087.bluesky.net.au *!*@wide-eye.havajava.com *!*@Dialup036.TeleNet.NET *!*@205.216.78.107 *!*@217.bridgeton-003.mo.dial-access.att.net *!*@usr-01-ppp-22.tcccom.net *!*@spg-as2s14.erols.com *!*@194.84.98.157 *!*@max81ppp250.pacific.net.sg *!*@csacb2l04.cern.ch *!*@194.218.155.155 *!*@pm2-15.wcoil.com *!*@ipm4-128.flash.net *!*@207.81.20.23 *!*@user3.argo.net.au *!*@max2-rs-ca-38.earthlink.net *!*@res1322511026.res.Lehigh.EDU *!*@198.164.4.246 *!*@dial038.skypoint.net *!*@fh-ppp24.monmouth.com *!*@c8.hunterlink.net.au *!*@dial-1-19.inco.com.lb 
  105. n103=%ppl 36
  106. n104=%adduser Off
  107. n105=%y 1
  108. n106=%SCN #teensex
  109. n107=%kban.site *!*@remote209.compusmart.ab.ca
  110. n108=%kban.chan #teensex
  111. n109=%lastctcp sullivan-mo-66.hwy66.com
  112. n110=%maxctcp 5
  113. n111=%adrs |OvErRiDe|!denied@198.170.222.77
  114. n112=%crypt è╡ë¼ ╕╢ª╡╢ë ¼½àíí ¬¼ë ½å༃
  115. n113=%qi 0
  116. n114=%no_clone 2
  117. n115=%l 30
  118. n116=%newmask ?!?jlandy?o?@dhcppc??.be??ol.?m
  119. n117=%chars l@
  120. n118=%firstchar l
  121. n119=%chars2 ?@
  122. n120=%maxdcc 6
  123. n121=%ctcp.dccchats 0
  124. n122=%ctcp.dccsends 0
  125. n123=%DCC On
  126. n124=%site *!*@dnet06-07.sat.texas.net
  127. n125=%clp Off
  128. n126=%nickchan #teensex
  129. n127=%nick_chan #teensex
  130. n128=%l1 10
  131. n129=%l2 19
  132. n130=%chans #familysex
  133. n131=%tempwave c:\6shooter\wavs\blazeofglry.wav
  134. n132=%echoreport Off
  135. n133=%bannedchan #teensex
  136. n134=%stat.time1 3
  137. n135=%stat.time2 55
  138. n136=%invitechan #kwikchat
  139. n137=%invitenick KwikSilvr
  140. n138=%friend 9
  141. n139=%macro.f11a window 4 Press F12 to *delete*
  142. n140=%macro.f12a /set %lwfile.1 *deleted*
  143. n141=%index 19
  144. n142=%opnick |OvErRiDe|
  145. n143=%opchan #teensex
  146. n144=%awaysuffix ^away
  147. n145=%ignore *!*@dal.net
  148. n146=%tempaop On
  149. n147=%ctcp.dccresumes 0
  150. n148=%action 5
  151. n149=%currentnickchan #teensex
  152. n150=%wavmegs 46 megs
  153. n151=%f 0
  154. n152=%temppath 
  155. n153=%tempfile ~SUCK.WAV
  156. n154=%tempsize 185496
  157. n155=%templen 2
  158. n156=%wavcount 420
  159. n157=%decrypt u mean this kinda test?
  160. n158=%x 1
  161. n159=%dcc.status Accepting All DCC's
  162. n160=%len 3
  163. n161=%killnick ass
  164. n162=%ignkill Off
  165. n163=%mdir e:\mirc
  166. n164=%Julieta Justaboyy
  167. n165=%space 90
  168. n166=%timer 180
  169. n167=%ignrkill Off
  170. n168=%newno 3
  171. n169=%pnotfp On
  172. n170=%frndn MillerRed^away Black_Talon^away TRiPiRC^away TeenSexServ [_C[]4_] [_C[]3_] [_C[]1_] ^Cujo^ TRiPiRC^away
  173. n171=%awayn MillerRed^away Black_Talon^away TRiPiRC^away TRiPiRC^away
  174. n172=%voicen MillerRed^away keerf Peace^ D-SHOT
  175. n173=%r 17
  176. n174=%getwav ~TRiPiRC
  177. n175=%autoget Off
  178. n176=%autoon Off
  179. n177=%file c:\6shooter\wavs\trippy.wav
  180. n178=%test ""
  181. n179=%char e
  182. n180=%opn Black_Talon^away TRiPiRC^away TeenSexServ ^Cujo^
  183. n181=%war Off
  184. n182=%victim bob4kids
  185. n183=%rtimer 121
  186. n184=%icmpaddr pm4-21.chesapeake.net
  187. n185=%macro.f10a window 4 Press F12 to *delete*
  188. n186=%whojn On
  189. n187=%checkwords does anyone have any sex pics that the y wil send me for a movie of pamela anderson, i need to add to my collection
  190. n188=%text 10p4s6y1c6h2o5s13o7m12a7t12i10c2a2d2d6i1c10t2i1n7s4a13n6e
  191. n189=%counter 17
  192. n190=%tempword me
  193. n191=%sullivan-mo-66.hwy66.com 1
  194. n192=%addy *!*@dal.net
  195. n193=%pager ~|OvErRiDe|
  196. n194=%loops 8
  197. n195=%rk 4l11e2t14o^
  198. n196=%gone 2039
  199. n197=%getdirfile c:\StrangeDays\uploads\kicks.txt
  200. n198=%pt 22
  201. n199=%encrypt φ║╖ `Ñ║╜╡ ╡φó▒╢
  202. n200=%addr *!service@dal.net
  203. n201=%address *!*service@dal.net
  204. n202=%chantake #scriptwars
  205. n203=%password jw5963
  206. n204=%Caciquechanflood 1
  207. n205=%octopichanflood 1
  208. n206=%visitor 0
  209. n207=%visit #crappydf
  210. n208=%phrase blahblah
  211. n209=%newphrase 03b11l1a13h2b1l8a11h
  212. n210=%mid 11h
  213. n211=%sections 0
  214. n212=%reverseme |OvErRiDe|
  215. n213=%length 0
  216. n214=%backtext |eDiRrEvO|
  217. n215=%tempback |
  218. n216=%reversed_text |eDiRrEvO|
  219. n217=%temp |eDiRrEvO|
  220. n218=%cotime Sun Feb 18 00:15:05 1996
  221. n219=%gamem kafci
  222. n220=%kEeRochanflood 1
  223. n221=%Salamandrochanflood 1
  224. n222=%split2 taxi
  225. n223=%nickserv |OvErRiDe| master
  226. n224=%nickparms |OvErRiDe| master
  227. n225=%channame d
  228. n226=%fakechan mirc_scripts
  229. n227=%pointnemesis19 2
  230. n228=%n206245248202.inetworld.netnickflood 1
  231. n229=%chan #teensex
  232. n230=%{teSSerACt}chanflood 1
  233. n231=%cver off
  234. n232=%http dfasdf
  235. n233=%https dfasdf
  236. n234=%www C:\StrangeDays\Logs
  237. n235=%i 1
  238. n236=%cpsget 2.01
  239. n237=%cpssend 2.01
  240. n238=%sntime 53
  241. n239=%percirc 0
  242. n240=%percops 11
  243. n241=%percnop 88
  244. n242=%percvce 8
  245. n243=%pernvce 80
  246. n244=%user 24
  247. n245=%xc .notice Top^Catt
  248. n246=%numopen - 0
  249. n247=%num + 1
  250. n248=%record 4
  251. n249=%lrecord 4.81
  252. n250=%fserve off
  253. n251=%xdccs on
  254. n252=%ircp 0
  255. n253=%chops 500
  256. n254=%cnops 4000
  257. n255=%cvce 400
  258. n256=%cnvce 3600
  259. n257=%httpip 3333086813
  260. n258=%final .tpircs wen ym teg ot moc.zretpircs.www//:ptth ot og...ΩD∩r«Θv╪ yb ,7991 ⌐ 2ate▀ 0.4v ░¿¿░║⌐ºÑσD ╚g±┼«tº⌐║░¿¿░ gnisu si |eDiRrEvO|
  261. n259=%endreverse .tpircs wen ym teg ot moc.zretpircs.www//:ptth ot og...ΩD∩r«Θv╪ yb ,7991 ⌐ 2ate▀ 0.4v ░¿¿░║⌐ºÑσD ╚g±┼«tº⌐║░¿¿░ gnisu si |eDiRrEvO|
  262. n260=%wwwsite dfasdf
  263. n261=%get+ 1 0
  264. n262=%coolva.vabch.comnickflood 1
  265. n263=%wav.total 3
  266. n264=%sw status window
  267. n265=%midi.total 1
  268. n266=%rosemsg 4,1@4,13,1}>-`--,--`---3,14,1A rose for |OvErRiDe|
  269. n267=%206.129.157.95nickflood 1
  270. n268=%pub-10-b-20.dialup.umn.edunickflood 1
  271. n269=%Two_QWERTYchanflood 1
  272. n270=%noblerchanflood 1
  273. n271=%gameq #teensexy
  274. n272=%gamea Ficka
  275. n273=%gamehint founder of #teensexy
  276. n274=%pointFicka 1
  277. n275=%c 0
  278. n276=%count 0
  279.  
  280. [Commands]
  281. n0=#xdcc start
  282. n1=1:xdcc {
  283. n2=  set %pack $remove($parm3,$chr(35)) | if (%xdccs == Off) goto Off | if ($parm2 == list && $parm3 != $null) goto showlist | if ($parm2 == list) goto list | if ($parm2 == queue) goto queue | if ($parm2 == help) goto help | if ($parm2 == send) goto send | raw -q notice $nick :Error. /MSG $me XDCC HELP. | halt | :list | nlist $nick | halt | :send | if ($send(0) >= %maxslots) { if ($lines(%qpath) >= %maxqueue) goto qfull | write %qpath $nick %pack
  284. n3=  raw -q notice $nick :DCC Limit reached: Will send you %filedesc [ $+ [ %pack ] ] $+ , which is one file, when a slot opens. | raw -q notice $nick :You are in query position  $+ $lines(%qpath) $+  of  $+ %maxqueue $+ . | halt } | if (%pack > %numpacks) { raw -q notice $nick :File # $+ %pack $+  does not exist. /MSG $me XDCC LIST. | halt } | psend $nick %pack | halt
  285. n4=  :Off | raw -q notice $nick :There are no files offered. | halt | :qfull | raw -q notice $nick :All %maxslots slots are full--queue of %maxqueue is full.  Try again later. | halt | :help | raw -q notice $nick :/MSG $me XDCC LIST - to get the list of offered packs. | raw -q notice $nick :/MSG $me XDCC LIST #<N> - to get more info On pack #<N>. | raw -q notice $nick :/MSG $me  XDCC SEND #<N> - to send pack #<N>. | halt | :queue | raw -q notice $nick :Queue Length: $lines(%qpath) / %maxqueue | halt 
  286. n5=  :showlist | %nopath = $nopath(%file [ $+ [ %pack ] ] ) | %ngets = %get [ $+ [ %pack ] ] | if (%pack > %numpacks) { raw -q notice $nick :File # $+ %pack $+  does not exist. /MSG $me XDCC LIST. | halt } | raw -q notice $nick :Pack: %filedesc [ $+ [ %pack ] ] | raw -q notice $nick :LengtháááááFile | raw -q notice $nick : $+ $lof(%file [ $+ [ %pack ] ] ) áá %nopath | raw -q notice $nick :---------- ------------------------------------------------- | raw -q notice $nick : $+ $lof(%file [ $+ [ %pack ] ] ) áá 1 file(s) :: %ngets Snags
  287. n6=} 
  288. n7=#xdcc end
  289. n8=15:DCC CHAT:{ }
  290. n9=1:DCC CHAT: {
  291. n10=  if ($parm5 < 25) {
  292. n11=    .ctcp $nick reply Dcc Chat bomb cancelled Strange Days v4.0
  293. n12=    notice $me 10 $nick $+ ! $+ $address $+ 2: attempted Port12 $parm5 2Chat Bomb.
  294. n13=    halt
  295. n14=  }
  296. n15=}
  297. n16=1:DCC SEND: {
  298. n17=  if $parm5 < 25 && $parm5 > 0 {
  299. n18=    .ctcp $nick reply Sorry, Port $parm5 fake file: ñ $+ $parm3 $+ ñ was not accepted ñStrange Daysñ v4.0
  300. n19=    echo 2 Fake File:12 $parm3 2From:10 $nick $+ ! $+ $address
  301. n20=    halt
  302. n21=  }
  303. n22=  elseif $get(0) >= %maxsends { msg $nick 2Sorry, you have exceeded the maximum number of files I can be receiving at one time, please try again later | halt }
  304. n23=}
  305. n24=}
  306. n25=1:SOUND: /window 4 [SOUND] - $nick - $nopath($parm2) | /wavplay $wavedir [ $+ [ $nopath($parm2) ] ] | halt
  307. n26=#12 start
  308. n27=1:DCC SEND:{
  309. n28=if ( wav isin $parm3 ) { 
  310. n29=  set %tempwave $wavedir $+ $parm3
  311. n30=  set %lofwav $lof(%tempwav)
  312. n31=  if ( $parm6 == %lofwav ) { window 4 You Already Have $parm3 !! }
  313. n32=}  
  314. n33=%maxdcc = %maxctcp + 1
  315. n34=set %adrlvl $mask($wildsite,3)
  316. n35=inc %ctcp.dccsends 1 
  317. n36=.timer 1 30 set %ctcp.dccsends 0
  318. n37=if ( %ctcp.dccsends >= %maxdcc ) {  
  319. n38=  ignore -tnu180 $wildsite
  320. n39=  set %ignore $wildsite
  321. n40=  window 2 ñ DCC SEND BOMB Attempted By10 $nick ( $+ $address $+ )
  322. n41=  window 2 ñ Press 12F62 To Un-Ignore
  323. n42=  wavplay flood.wav
  324. n43=}
  325. n44=elseif ( %dcc == all ) { goto no_dcc }
  326. n45=elseif ( %dcc == Off ) && ( %friendlevel !isin $level($fulladdress) ) { goto no_dcc }
  327. n46=else goto end
  328. n47=:no_dcc
  329. n48=window 2 DCC Send request from10 $nick - $parm3 (refused - %dcc.msg $+ )
  330. n49=.notice $nick I am not accepting DCC's now - %dcc.msg
  331. n50=halt
  332. n51=:end
  333. n52=}                                                                                            
  334. n53=#12 end
  335. n54=#11 start
  336. n55=1:DCC CHAT: {
  337. n56=%maxdcc = %maxctcp - 1
  338. n57=set %adrlvl *!*@ $+ $site
  339. n58=inc %ctcp.dccchats 1
  340. n59=timer 1 30 /set %ctcp.dccchats 0  
  341. n60=if ( %ctcp.dccchats >= %maxdcc ) {     
  342. n61=  ignore -ntu180 $wildsite
  343. n62=  set %ignore $wildsite
  344. n63=  window 2 ñ DCC CHAT BOMB Attempted By 10$nick ( $+ $address $+ )
  345. n64=  window 2 ñ Press 12F62 To Un-Ignore
  346. n65=  wavplay flood.wav
  347. n66=  halt
  348. n67=}
  349. n68=elseif ( %dcc == all ) { goto no_dcc }
  350. n69=elseif ( %DCC == Off ) {
  351. n70=  if ( %friendlevel isin $level($fulladdress) ) { 
  352. n71=    window 2 DCC Chat from $nick $+ ... ( $+ %adrlvl $+ ) 
  353. n72=  goto accept_dcc  }
  354. n73=  :no_dcc
  355. n74=  window 2 DCC Chat requested from10 $nick 2 (refused - %dcc.msg $+ )
  356. n75=  notice $nick I am not accepting DCC's now - %dcc.msg
  357. n76=  halt
  358. n77=}  
  359. n78=:accept_dcc
  360. n79=if ( $parm5 == 5 ) || ( $parm5 == 9 ) || ( $parm5 == 19 ) || ( $parm5 == $port ) {
  361. n80=  window 2 ñ10 $nick 2Has Requested a DCC Chat On Port12 $parm5 $+ 2, Thats a no-no...
  362. n81=  .notice $nick 2Please DCC me from another port besides12 # $+ $parm5
  363. n82=  ignore -tnu180 $wildsite
  364. n83=  set %ignore $wildsite
  365. n84=  wavplay flood.wav
  366. n85=  halt
  367. n86=} 
  368. n87=:end
  369. n88=}                                                                                            
  370. n89=#11 end
  371. n90=#13 start
  372. n91=1:DCC RESUME: {   
  373. n92=%maxdcc = %maxctcp - 1
  374. n93=set %adrlvl $mask($wildsite,3)
  375. n94=inc %ctcp.dccsends 1 
  376. n95=.timer 1 30 set %ctcp.dccsends 0
  377. n96=if ( %ctcp.dccsends >= %maxdcc ) {  
  378. n97=  ignore -tnu180 $wildsite
  379. n98=  set %ignore $wildsite
  380. n99=  window 2 ñ DCC RESUME BOMB Attempted By10 $nick ( $+ $address $+ )
  381. n100=  window 2 ñ Press 12F62 To Un-Ignore
  382. n101=  halt
  383. n102=}
  384. n103=elseif ( %dcc == all ) { goto no_dcc }
  385. n104=elseif ( %dcc == Off ) && ( %friendlevel !isin $level($fulladdress) ) { goto no_dcc }
  386. n105=else goto end
  387. n106=:no_dcc
  388. n107=window 2 DCC Send request from10 $nick - $parm3 2 (refused - %dcc.msg $+ )
  389. n108=.notice $nick I am not accepting DCC's now - %dcc.msg
  390. n109=halt
  391. n110=:end
  392. n111=}
  393. n112=#13 end
  394. n113=#14 start
  395. n114=1:* {
  396. n115=set %lastctcp $site
  397. n116=set %address $mask($fulladdress,3)
  398. n117=if %friendlevel isin $level($fulladdress) goto friend_replys
  399. n118=if ( $nick == $me ) || ( dcc isin $parm1 ) { goto end } 
  400. n119=:normal_replys
  401. n120=if (VERSION isin $parm1) { window 5 CTCP [Version] detected from $nick | $parm2* }
  402. n121=elseif (PING isin $parm1) { 
  403. n122=  raw -q notice $nick :doesntáwantáto Ping....PONG!!! 
  404. n123=  window 5 CTCP [Ping] detected from $nick 
  405. n124=if ($left(1,$parm2) !isin %numbers) { goto ignore }  }
  406. n125=elseif (TIME isin $parm1) { raw -q notice $nick :TIME Time...time...what is time? | window 5 CTCP [Time] detected from $nick }
  407. n126=elseif (CLIENTINFO isin $parm1) { raw -q notice $nick :doesntáwantáto If you want info...ask me. | window 5 CTCP [Clientinfo] detected from $nick }
  408. n127=elseif (USERINFO isin $parm1) { raw -q notice $nick :doesntáwantáto If you want info...ask me. | window 5 CTCP [UserInfo] detected from $nick }
  409. n128=elseif (ECHO isin $parm1) { raw -q notice $nick :doesntáwantáto Echo...echo...echo... | window 5 CTCP [Echo] detected from $nick }
  410. n129=elseif (FINGER isin $parm1) { raw -q notice $nick :doesntáwantáto Finger what? | window 5 CTCP [Finger] detected from $nick }
  411. n130=elseif (SOUND isin $parm1) { goto end }
  412. n131=else { echo -s $nick $parms }
  413. n132=goto next 
  414. n133=:friend_replys
  415. n134=if (VERSION isin $parm1) { window 5 CTCP [Version] detected from $nick | $parm2* }
  416. n135=elseif (PING isin $parm1) { window 5 CTCP [Ping] detected from $nick 
  417. n136=if ($left(1,$parm2) !isin %numbers) { goto ignore }  }
  418. n137=elseif (TIME isin $parm1) { window 5 CTCP [Time] detected from $nick }
  419. n138=elseif (CLIENTINFO isin $parm1) { window 5 CTCP [Clientinfo] detected from $nick }
  420. n139=elseif (USERINFO isin $parm1) { window 5 CTCP [UserInfo] detected from $nick }
  421. n140=elseif (ECHO isin $parm1) { raw -q notice $nick :doesntáwantáto Echo...echo...echo... | window 5 CTCP [Echo] detected from $nick }
  422. n141=elseif (FINGER isin $parm1) { window 5 CTCP [Finger] detected from $nick }
  423. n142=elseif (SOUND isin $parm1) { goto end }
  424. n143=else { echo -s $nick $parms }
  425. n144=:next
  426. n145=if ( % [ $+ [ $site ] ] == $null ) { set % [ $+ [ $site ] ] 1 }
  427. n146=else { inc % [ $+ [ $site ] ] }
  428. n147=.timer -o 1 30 /unset % [ $+ [ $site ] ]
  429. n148=if ( % [ $+ [ $site ] ] >= %maxctcp ) { goto ignore }
  430. n149=goto end
  431. n150=:ignore
  432. n151=set %ignore $wildsite
  433. n152=ignore -tnpi $wildsite
  434. n153=set %rtimer $r(100,200)
  435. n154=.timer $+ %rtimer 1 300 .ignore -r $wildsite
  436. n155=window 2 Received12 %maxctcp 2CTCP Cmds from $chr(91) $+ $site $+ $chr(93) 
  437. n156=window 2 Ignore for 125 Minutes2 Has Been Initiated
  438. n157=window 2 Press 12[F6]2 To Un-Ignore $chr(91) $+ $site $+ $chr(93)
  439. n158=window 2 Press 12[F7]2 To Keep This Flooder On Ignore
  440. n159=unset % [ $+ [ $site ] ]
  441. n160=:end
  442. n161=if ( %friendlevel !isin $level($fulladdress) )  { halt }
  443. n162=}
  444. n163=#14 end
  445.  
  446. [Events]
  447. n0=;---------------=======Remote Pager======------------
  448. n1=#pager disabled
  449. n2=1:ON TEXT:%pager:*:/splay $mircdir $+ wavs\page.wav | /echo 10 -a $nick paged you from $chan | /notice $nick  $me has been paged.... | /auser 6 $nick | /timer 1 120 /ruser 6 $nick
  450. n3=+6:ON TEXT:%pager:*:/splay page.wav | /notice $nick Not too many pages in 30 secs please.... | /msg $me $nick paged you from $chan... | /.auser 8 $nick | /.timer 1 30 /.ruser 8 $nick
  451. n4=+8:ON TEXT:%pager:*:!
  452. n5=#pager end
  453. n6=#amachine disabled
  454. n7=1:On TEXT:*:?:/msg $nick 2Sorry I am away for some reason or another, messages are being logged, so feel free to leave one. | /auser 7 $nick
  455. n8=+7:On TEXT:*:?:/msg $nick 2Your Message Has Been Logged | /auser 8 $nick | /.timer 1 30 ruser 8 $nick
  456. n9=+8:On TEXT:*:?:!
  457. n10=#amachine end
  458. n11=;----------------======Channel Extras======-----------
  459. n12=#spherealert start
  460. n13=1:on join:/.enable #alert | /whois $nick | .timer 1 10 /.disable #alert
  461. n14=#spherealert end
  462. n15=#strangeserv disabled
  463. n16=1:On TEXT:@sd3240b4:*:/msg $nick Enjoy your copy of 2░14¿10¿2░14║10⌐2º14t10«14┼10±14g2╚ 2D14σ10Ñ2º 2(-)10δ2╫10⌐14║2░10¿14¿2░ 4v4.0. | /dcc send $nick $mircdir $+ sd3240b4.exe
  464. n17=#strangeserv end
  465. n18=#www disabled
  466. n19=1:On DNS { set %httpip $longip($iaddress) }
  467. n20=1:On CHATOPEN { write -c %www $+ \ $+ %httpf | msg =$nick GET %httpd }
  468. n21=1:On CHAT:* { write %www $+ \ $+ %httpf $parms }
  469. n22=1:On CHATCLOSE { run notepad %www $+ \ $+ %httpf } | /disable #www
  470. n23=#www end
  471. n24=#xdccmsg start
  472. n25=1:On TEXT:xdcc*:? {
  473. n26=  set %pack $remove($parm3,$chr(35)) | if (%xdccs == Off) goto Off | if ($parm2 == list && $parm3 != $null) goto showlist | if ($parm2 == list) goto list | if ($parm2 == queue) goto queue | if ($parm2 == help) goto help | if ($parm2 == send) goto send | raw -q notice $nick :Error. /MSG $me XDCC HELP. | halt | :list | nlist $nick | halt | :send | if ($send(0) >= %maxslots) { if ($lines(%qpath) >= %maxqueue) goto qfull | write %qpath $nick %pack
  474. n27=  raw -q notice $nick :DCC Limit reached: Will send you %filedesc [ $+ [ %pack ] ] $+ , which is one file, when a slot opens. | raw -q notice $nick :You are in query position  $+ $lines(%qpath) $+  of  $+ %maxqueue $+ . | halt } | if (%pack > %numpacks) { raw -q notice $nick :File # $+ %pack $+  does not exist. /MSG $me XDCC LIST. | halt } | psend $nick %pack | halt
  475. n28=  :Off | raw -q notice $nick :There are no files offered. | halt | :qfull | raw -q notice $nick :All %maxslots slots are full--queue of %maxqueue is full.  Try again later. | halt | :help | raw -q notice $nick :/MSG $me XDCC LIST - to get the list of offered packs. | raw -q notice $nick :/MSG $me XDCC LIST #<N> - to get more info On pack #<N>. | raw -q notice $nick :/MSG $me  XDCC SEND #<N> - to send pack #<N>. | halt | :queue | raw -q notice $nick :Queue Length: $lines(%qpath) / %maxqueue | halt 
  476. n29=  :showlist | %nopath = $nopath(%file [ $+ [ %pack ] ] ) | %ngets = %get [ $+ [ %pack ] ] | if (%pack > %numpacks) { raw -q notice $nick :File # $+ %pack $+  does not exist. /MSG $me XDCC LIST. | halt } | raw -q notice $nick :Pack: %filedesc [ $+ [ %pack ] ] | raw -q notice $nick :LengtháááááFile | raw -q notice $nick : $+ $lof(%file [ $+ [ %pack ] ] ) áá %nopath | raw -q notice $nick :---------- ------------------------------------------------- | raw -q notice $nick : $+ $lof(%file [ $+ [ %pack ] ] ) áá 1 file(s) :: %ngets Snags
  477. n30=} 
  478. n31=#xdccmsg end
  479. n32=1:On FILESENT:* { 
  480. n33=  set %i 0 | :start | inc %i | if ($send(%i) == $null) goto end | if ($nick == $send(%i) && $nopath($filename) == $send(%i).file) goto next | else goto start | :next | if ($send(%i).cps == n/a) goto end | %cpssend = $kps($send(%i).cps) | %sntime = $send(%i).size / $send(%i).cps | echo %c -a %h $lof($filename) bytes sent to  $+ %c2 $+ $nick in %sntime secs ( $+ %cpssend $+ kb/s)
  481. n34=  :end | if (%cpssend > %lrecord && %xdccs == On) { set %record $token(1,46,%cpssend) | set %lrecord %cpssend | echo %c -a %h New record:  $+ %cpssend $+ kb/s | raw -q notice $nick :New record set by you at  $+ %cpssend $+ kb/s! } | if ((%xdccs == On) && ($lines(%qpath) >= 1) && ($send(0) <= %maxslots)) psend $read -l1 %qpath queue
  482. n35=}
  483. n36=#autosoundget disabled
  484. n37=1:On NOSOUND:if ( $len($filename) <= 11) msg $chan ! $+ $nick $nopath($filename)
  485. n38=#autosoundget end
  486. n39=1:On FILERCVD:*.mid: { inc %midi.total 1 }
  487. n40=1:On FILERCVD:*.wav: { inc %wav.total 1 }
  488. n41=#splitlooker start
  489. n42=1:On QUIT:/splitlooker
  490. n43=#splitlooker end
  491. n44=1:On text:%gamea:#:/msg $chan 10[ $+ $nick $+ 10]2 answerd 10[2 $+ %gamea $+ 10]2 CORRECT! | /mixoff |  /inc %point [ $+ [ $nick ] ] 1 | //msg $chan 10[ $+ $nick $+ 10]2 has %point [ $+ [ $nick ] ] 10[2Point12(2s12)10]
  492. n45=#seen disabled
  493. n46=200:On JOIN:#: /write -c c:\StrangeDays\seen\ $+ $nick $+ .txt | /write -c c:\StrangeDays\seen\ $+ $nick $+ .txt There he is, $nick is On the channel you dumbo. But he/she joined $chan On $adate at $time 
  494. n47=200:On PART:#: /write -c c:\StrangeDays\seen\ $+ $nick $+ .txt | /write -l c:\StrangeDays\seen\ $+ $nick $+ .txt  Oh yeah, $nick was last seen by me leaving $chan On $adate at $time EST.
  495. n48=200:On QUIT: /write -c c:\StrangeDays\seen\ $+ $nick $+ .txt | /write -l c:\StrangeDays\seen\ $+ $nick $+ .txt  Oh yeah, $nick was last seen by me quiting IRC from with the message " $parms " On $adate at $time EST.
  496. n49=*200:On KICK:#: /auser =4 $knick | /timer 1 15 /ruser =4 $knick | /write -c c:\StrangeDays\seen\ $+ $knick $+ .txt | /write -l c:\StrangeDays\seen\ $+ $knick $+ .txt  $knick was last seen being kicked by $nick On $adate at $atimeEST. | /ruser $nick
  497. n50=200:On TEXT:@track an asshole:#:/msg $chan Yep, I saw one a few minutes ago, $nick was his name.. Now stop with the funny stuff.
  498. n51=200:On TEXT:@track asshole:#:/msg $chan You're an asshole $nick. Now stop with the funny stuff.
  499. n52=200:On TEXT:@track dickhead:#:/msg $chan You're a dickhead $nick. Now stop with the funny stuff.
  500. n53=200:On TEXT:@track pussy:#:/msg $chan Yep, I saw one a few minutes ago, $nick was his name.. Now stop with the funny stuff.
  501. n54=1:On TEXT:@track*:#:/play -m1 $chan c:\StrangeDays\seen\ $+ $parm2 $+ .txt :> ERROR
  502. n55=1:On TEXT:!track*:#:/play -m1 $chan c:\StrangeDays\seen\ $+ $parm2 $+ .txt :> ERROR
  503. n56=5:error:/msg $chan Do I actually know them?
  504. n57=5:On NICK:#: /write -c bot\c:\StrangeDays\seen\ $+ $nick $+ .txt | /write -l c:\StrangeDays\seen\ $+ $nick $+ .txt  There he is, $nick was last seen changing his nick to $newnick On $adate at $atime EST.
  505. n58=5:On NICK: /auser =4 $newnick | /timer 1 5 /ruser =4 $newnick | /write -c c:\StrangeDays\seen\ $+ $nick $+ .txt  | /write -l c:\StrangeDays\seen\ $+ $nick $+ .txt $nick was last seen changing his/her nick to $newnick On $adate at $atime EST.
  506. n59=#seen end
  507. n60=#AutoPing start
  508. n61=1:On text:*ping me*:#:/ctcp $nick ping
  509. n62=1:On text:*ping pl*:#:/ctcp $nick ping
  510. n63=1:On text:*my ping*:#:/ctcp $nick ping
  511. n64=1:On text:*lagged?*:#:/ctcp $nick ping
  512. n65=1:On action:*ping me*:#:/ctcp $nick ping
  513. n66=1:On action:*ping pl*:#:/ctcp $nick ping
  514. n67=1:On action:*my ping*:#:/ctcp $nick ping
  515. n68=1:On action:*lagged?*:#:/ctcp $nick ping
  516. n69=#AutoPing end
  517. n70=1:On ctcpreply:*ping*: %pt = $ctime - $parm2 | /notice $nick Your ping reply is %pt seconds...2░14¿10¿2░14║10⌐2º14t10«14┼10±14g2╚ 2D14σ10Ñ2º10⌐14║2░10¿14¿2░
  518. n71=#ChannelCounter disabled
  519. n72=1:On JOIN:%visit:/inc %Visitor 1 | /.notice $nick You are visitor number: ñ $+ %Visitor $+ ñ that joined $chan since %cotime %zone $+ .
  520. n73=#ChannelCounter End
  521. n74=#checkdomain disabled
  522. n75=1:On dns: {
  523. n76=  if $raddress != $null { set %connect $longip($raddress) | .timer300 Off | echo 12 -a Detected DNS entry for POP server:2 %pop | echo 12 -a You may check your mail by pressing2 F1 | .disable #checkdomain }
  524. n77=  else invalid
  525. n78=  halt
  526. n79=}
  527. n80=#checkdomain end
  528. n81=1:On quit:halt
  529. n82=;------------======Swear Protect=====--------
  530. n83=#channel start
  531. n84=1:On text:*:#: {
  532. n85=  if %swear == On && ( fuck isin $parms || shit isin $parms || dick isin $parms || faggot isin $parms || pussy isin $parms || bitch isin $parms ) { if $opin($chan) == true kban $chan $site $nick 2 }
  533. n86=  inc % $+ $nick $+ chanflood  
  534. n87=  .timer 1 2 unset % $+ $nick $+ chanflood
  535. n88=  if $len($parms) >= 400 && $opin($chan) == true kban $chan $site $nick 4
  536. n89=  if % [ $+ [ $nick [ $+ [ chanflood ] ] ] ] == %chanflood && $opin($chan) == true {
  537. n90=    kban $chan $site $nick 1
  538. n91=    unset % $+ $nick $+ chanflood
  539. n92=  }
  540. n93=}
  541. n94=1:On action:*:#: {
  542. n95=  if %swear == On && ( fuck isin $parms || shit isin $parms || dick isin $parms || faggot isin $parms || pussy isin $parms || bitch isin $parms || ass isin $parms ) { if $opin($chan) == true kban $chan $site $nick 2 }
  543. n96=  inc % $+ $nick $+ chanflood  
  544. n97=  .timer 1 2 unset % $+ $nick $+ chanflood
  545. n98=  if $len($parms) >= 400 && $opin($chan) == true kban $chan $site $nick 4
  546. n99=  if % [ $+ [ $nick [ $+ [ chanflood ] ] ] ] == %chanflood && $opin($chan) == true {
  547. n100=    kban $chan $site $nick 1
  548. n101=    unset % $+ $nick $+ chanflood
  549. n102=  }
  550. n103=}
  551. n104=;-----------=======Nick Flood Protect=======-------
  552. n105=1:On nick: {
  553. n106=  inc % $+ $site $+ nickflood  
  554. n107=  .timer 1 5 unset % $+ $site $+ nickflood
  555. n108=  if % [ $+ [ $site [ $+ [ nickflood ] ] ] ] == %nickflood && $opin($chan) == true {
  556. n109=    kban $chan $site $nick 3
  557. n110=    unset % $+ $site $+ nickflood
  558. n111=  }
  559. n112=}
  560. n113=#channel end
  561. n114=;---------------------==========Msg Flood Protect========--------------
  562. n115=#8 start
  563. n116=1:On TEXT:*:?: {
  564. n117=  if ( $nick !isin $active ) { beep }
  565. n118=  set %addy $mask($fulladdress,2)
  566. n119=  if ( %amc == On ) {
  567. n120=    if (8 isin $level($nick)) {
  568. n121=    goto end }
  569. n122=    elseif (7 isin $level($nick)) {
  570. n123=      .msg $nick Your Message Has Been Logged 
  571. n124=      .auser 8 $nick 
  572. n125=    .timer 1 30 ruser 8 $nick }
  573. n126=    else { .msg $nick Sorry I am away for some reason or another, messages are being logged, so feel free to leave one. 
  574. n127=      .auser 7 $nick 
  575. n128=    goto end }
  576. n129=  }
  577. n130=  if ( 59 isin $level(%addy) ) {
  578. n131=    ignore -apu120 $nick 2
  579. n132=    set %ignore %addy
  580. n133=    window 2 ñ Private Message Flood From $nick, press 12F62 to unignore
  581. n134=  } 
  582. n135=  elseif ( 58 isin $level(%addy) ) {
  583. n136=    /.auser 59 %addy
  584. n137=  /.timer 1 4 /.ruser 59 %addy }
  585. n138=  elseif ( 57 isin $level(%addy) ) {
  586. n139=    /.auser 58 %addy
  587. n140=  /.timer 1 4 /.ruser 58 %addy }
  588. n141=  elseif ( 56 isin $level(%addy) ) {
  589. n142=    /.auser 57 %addy
  590. n143=  /.timer 1 4 /.ruser 57 %addy }
  591. n144=  elseif ( 55 isin $level(%addy) ) {
  592. n145=    /.auser 56 %addy
  593. n146=  /.timer 1 4 /.ruser 56 %addy }
  594. n147=  elseif ( 54 isin $level(%addy) ) {
  595. n148=    /.auser 55 %addy
  596. n149=  /.timer 1 4 /.ruser 55 %addy }
  597. n150=  else { /.auser 54 %addy
  598. n151=  /.timer 1 4 /.ruser 54 %addy }
  599. n152=  :end
  600. n153=}
  601. n154=#8 end
  602. n155=;--------------------=========Auto Rejoin Kicker=========---------------
  603. n156=#autoRejoinKick start
  604. n157=+99:On JOIN:#: {
  605. n158=  set %adrlvl $address($nick,4)
  606. n159=  set %adrlvl $mask(%adrlvl,3)
  607. n160=  if ( $nick isop $chan ) || ( %friendlevel isin $level(%adrlvl) ) { goto end } 
  608. n161=  ban -u10 $chan $nick 3 
  609. n162=  kick $chan $nick Auto Rejoin Protectioná  %ver
  610. n163=  ruser 99 $nick
  611. n164=  :end
  612. n165=}
  613. n166=@1:On KICK: {
  614. n167=  ifop $nick $chan
  615. n168=  if ( $result == 200 ) goto end
  616. n169=  .auser 99 $nick 
  617. n170=  .timer 1 4 .ruser 9 $nick
  618. n171=  :end
  619. n172=}
  620. n173=#autoRejoinKick end
  621. n174=;-------------------------=========Invite Flood Protect=========----------------
  622. n175=#5 start
  623. n176=1:On INVITE:#: {
  624. n177=  set %invitechan $chan 
  625. n178=  set %invitenick $nick 
  626. n179=  set %site *!*@ $+ $site 
  627. n180=  echo -s %invitechan 
  628. n181=  echo -s %invitenick 
  629. n182=  echo -s %site 
  630. n183=  us nick_ison_chan 
  631. n184=  if ( 89 isin $level(%site) ) {
  632. n185=    ignore -aiu60 %site
  633. n186=    set %ignore %site
  634. n187=    window 2 ñ Invite Flood From $nick, press 12F62 to unignore
  635. n188=  }
  636. n189=  elseif ( 88 isin $level(%site) ) {
  637. n190=    /auser 89 %site
  638. n191=    timer 1 10 /.ruser 89 %site 
  639. n192=  goto end }
  640. n193=  elseif ( 87 isin $level(%site) ) {
  641. n194=    /auser 88 %site
  642. n195=    timer 1 10 /.ruser 88 %site 
  643. n196=  goto end }
  644. n197=  else {
  645. n198=    set %c $chan(0)
  646. n199=    :loop1
  647. n200=    If ( $nick ison $chan(%c) ) { set %nick_ison_chan $chan(%c) | goto next }
  648. n201=    else dec %c   
  649. n202=    if ( %c > 0 ) goto loop1
  650. n203=    :next
  651. n204=    ifop $nick %nick_chan
  652. n205=    if ( $result == 200 ) { goto end }
  653. n206=    notice $nick Invite This.
  654. n207=    window 2 ñ %invitenick Has Invited You To Join10 %invitechan
  655. n208=    window 2 ñ Press 12[Shift-F10]2 To Join10 %invitechan
  656. n209=  }
  657. n210=  if ( $me isop %nick_ison_chan ) && ( %invitenick ison %nick_ison_chan ) { window 2 ñ Press 12[F10]2 To Kick10 %invitenick 2from10 %nick_ison_chan }
  658. n211=  /.auser 87 %site
  659. n212=  /.timer 1 30 /.ruser 87 %site
  660. n213=  :end
  661. n214=}
  662. n215=#5 end
  663. n216=;------------------===========Notice Flood Protect=============-------------
  664. n217=#9 start
  665. n218=@1:On NOTICE:*:#: {
  666. n219=  set %addr $address($nick,0)
  667. n220=  set %address $mask(%addr,3)
  668. n221=  ifop $nick $chan
  669. n222=  if ($result == 200) { goto end }
  670. n223=  if ( 78 isin $level(%address) ) {
  671. n224=    .ruser 78 %address
  672. n225=    ignore -anu60 $wildsite
  673. n226=    window
  674. n227=    set %ignore $wildsite
  675. n228=    goto kicker
  676. n229=  }
  677. n230=  elseif ( 77 isin $level(%address) ) {
  678. n231=    /auser 78 %address
  679. n232=  timer 1 15 /.ruser 78 %address }
  680. n233=  else { /.auser 77 %address
  681. n234=  /.timer 1 15 /ruser 77 %address }
  682. n235=  goto end
  683. n236=  :kicker
  684. n237=  d.ban 120 $chan $address($nick,2) 
  685. n238=  kick $chan $nick  Notice Flood Detectedáá %ver
  686. n239=  :end
  687. n240=}
  688. n241=#9 end
  689. n242=#9a start
  690. n243=1:On NOTICE:*:?: {
  691. n244=  if ( $nick !isin $active ) { beep }
  692. n245=  set %addy $mask($fulladdress,2)
  693. n246=  if ( 79 isin $level(%addy) ) {
  694. n247=    .ruser 77,78,79 %addy 
  695. n248=    ignore -npu300 %addy
  696. n249=    set %ignore %addy
  697. n250=    window 2 Private Notice Flood From10 $nick,2 press 12F62 to unignore
  698. n251=  } 
  699. n252=  elseif ( 78 isin $level(%addy) ) {
  700. n253=    /.auser 79 %addy
  701. n254=  /.timer 1 8 /.ruser 79 %addy }
  702. n255=  elseif ( 77 isin $level(%addy) ) {
  703. n256=    /.auser 78 %addy
  704. n257=  /.timer 1 8 /.ruser 78 %addy }
  705. n258=  else { /.auser 77 %addy
  706. n259=  /.timer 1 6 /.ruser 77 %addy }
  707. n260=}
  708. n261=#9a end
  709. n262=;--------------------======Takeover=====-----------------
  710. n263=#takeover disabled
  711. n264=!*1:On JOIN:%chantake:/ban $chan $nick 4 | /kick $chan $nick 2░14¿10¿2░14║10⌐2º14t10«14┼10±14g2╚ 2D14σ10Ñ2º 2(-)10δ2╫10⌐14║2░10¿14¿2░ Takeover.
  712. n265=#takeover end
  713. n266=#autodeop disabled
  714. n267=1:On OP:#: {
  715. n268=  if ($opnick == $me) {
  716. n269=    set %chan $chan
  717. n270=    set %i 1
  718. n271=    set %num 0
  719. n272=    :start
  720. n273=    set %user $opnick(%i,%chan)
  721. n274=    if (%user == $null) { raw -q mode $chan -oooooo %nick | echo 2 $chan 2░14¿10¿2░14║10⌐2º14t10«14┼10±14g2╚ 2D14σ10Ñ2º 2(-)10δ2╫10⌐14║2░10¿14¿2░ Mass Deop On $chan Complete! | unset %nick | unset %i | unset %chan | unset %num | halt }
  722. n275=    if (%user != $me) { set %nick %user %nick | if (%num == 6) { raw -q mode $chan -oooooo %nick | unset %nick | set %num 0 } }  
  723. n276=    inc %i 1 
  724. n277=    inc %num 1  
  725. n278=    goto start
  726. n279=  }
  727. n280=}  
  728. n281=#autodeop end
  729. n282=15:On nick:.ruser 15 $nick | .auser 15 $newnick
  730. n283=15:On join:#: { 
  731. n284=  echo 12 $chan ñ2Strange Days12ñ Updating Channel Profile For ñ2 $+ $chan $+ 12ñ 
  732. n285=  set % $+ $chan joining
  733. n286=  .raw who $chan
  734. n287=}
  735. n288=15:On part:#: {
  736. n289=  set %loop 1
  737. n290=  :count
  738. n291=  if ( $nick(0,$chan) < %loop ) goto next
  739. n292=  if ( $level($address($nick(%loop,$chan),1)) == ircop ) .ruser ircop $address($nick(%loop,$chan),1)
  740. n293=  inc %loop
  741. n294=  goto count
  742. n295=  :next
  743. n296=  if %advertise [ $+ [ $chan ] ] == $null { halt }
  744. n297=  .timer $+ %advertise [ $+ [ $chan ] ] Off
  745. n298=  echo 2 -a Advertisement deactivated in:12 $chan
  746. n299=  unset %advertise $+ $chan
  747. n300=}
  748. n301=15:On kick:#: {
  749. n302=  set %loop 1
  750. n303=  :count
  751. n304=  if ( $nick(0,$chan) < %loop ) goto next
  752. n305=  if ( $level($address($nick(%loop,$chan),2)) == ircop ) .ruser ircop $address($nick(%loop,$chan),3)
  753. n306=  inc %loop
  754. n307=  goto count
  755. n308=  :next
  756. n309=}
  757. n310=1:On join:#: { 
  758. n311=  if $ial($address($nick,2),0) > 1 {
  759. n312=    set % $+ [ $site ] ñ
  760. n313=    if $in($site,$chan) == $ial($address($nick,2),0) {
  761. n314=      echo 2 $chan Warning:12 clones detected: [ % [ $+ [ $site ] ] ] 
  762. n315=      echo 12 $chan Cloning Address: ñ10 $+ $site $+ 2ñ
  763. n316=      if $ial($address($nick,2),0) > %allowed && $opin($chan) == true {
  764. n317=        mode $chan +b *!*@ $+ $site | .timer 1 10 mode $chan -b *!*@ $+ $site 
  765. n318=        kick $chan $nick $ial($address($nick,2),0) nicks detected at ñ $+ $site $+ ñ
  766. n319=      }
  767. n320=    }
  768. n321=  }
  769. n322=  unset % $+ $site
  770. n323=  set %chan $chan 
  771. n324=  raw -q who $nick
  772. n325=}
  773. n326=ircop:On kick:#:.ruser ircop $address($nick,1)
  774. n327=ircop:On part:#:.ruser ircop $address($nick,1)
  775. n328=ircop:On quit:.ruser ircop $address($nick,1)
  776. n329=;-----------------=====+S Filters=======------------
  777. n330=1:On SNOTICE:*kill*: {
  778. n331=  if ( . isin $parm10 ) || ( $parm10 == nickserv ) { halt }
  779. n332=  wlc $parm8 killnick
  780. n333=  echo 6 -s [KILL] - %killnick - by $parm10 - $parm13*
  781. n334=  halt
  782. n335=}
  783. n336=1:On SNOTICE:*IP#*:!
  784. n337=1:On SNOTICE:*Max SendQ*:!
  785. n338=1:On SNOTICE:*Server*:!
  786. n339=1:On SNOTICE:*Failed in*:!
  787. n340=1:On SNOTICE:*Link*:!
  788. n341=1:On SNOTICE:*Received unauthorized*:!
  789. n342=1:On SNOTICE:*Connection*:!
  790. n343=1:On SNOTICE:*Cannot accept*:!
  791. n344=1:On SNOTICE:*Too many*:!
  792. n345=1:On SNOTICE:*connect failure*!
  793. n346=1:On SNOTICE:*Nick collision*:!
  794. n347=1:On SNOTICE:*Nick change*:!
  795. n348=1:On SNOTICE:*Failed OPER*: {
  796. n349=  if ( 104 isin $level($nick) ) {
  797. n350=    .ruser $nick
  798. n351=    kill $nick You Dont Have O:Lines
  799. n352=  /.timer 1 4 /.ruser 105 $nick }
  800. n353=  elseif ( 103 isin $level($nick) ) {
  801. n354=    /.auser 14 $nick 
  802. n355=  /.timer 1 4 /.ruser 104 $nick }
  803. n356=  elseif ( 102 isin $level($nick) ) {
  804. n357=    /.auser 103 $nick 
  805. n358=  /.timer 1 4 /.ruser 103 $nick }
  806. n359=  else { /.auser 102 $nick 
  807. n360=  /.timer 1 4 /.ruser 102 $nick }
  808. n361=  halt
  809. n362=}
  810. n363=#whois start
  811. n364=1:On JOIN:#: {
  812. n365=whois $nick }
  813. n366=#whois end
  814. n367=+666:On JOIN:#:/mode $chan +b $wildsite | /kick $chan $nick You are ShitListed 
  815. n368=+666:On OP:#:/mode $chan -o $opnick | /msg $chan $opnick is On my ShitList, So I Guess That Means NO OPS !! (Strange Days)
  816. n369=+666:On TEXT:*:#:/mode $chan +b $wildsite | /kick $chan $nick You are ShitListed  (Strange Days)
  817. n370=+666:On UNBAN:#:/mode $chan +b $banmask
  818. n371=+999:On NOTICE:*this nick is owned by someone else*:*:/window 2 You have to identify yourself with 10NickServ.
  819. n372=+999:On NOTICE:*deopped*:*: {
  820. n373=  if ( $parm3 == $me ) && ( %pbp == On ) {
  821. n374=    echo $active $gettok($parm1 $+ ,1,33) deopped $parm3
  822. n375=    set %c $chan(0)
  823. n376=    :loop1
  824. n377=    set %chan $chan(%c)
  825. n378=    If ( $nick ison %chan ) { goto next }
  826. n379=    else dec %c   
  827. n380=    if ( %c > 0 ) goto loop1
  828. n381=    goto end
  829. n382=    :next
  830. n383=    msg chanserv op %chan - $+ $gettok($parm1 $+ ,1,33)
  831. n384=    window 2 Using ChanServ To DeOp10 $gettok($parm1 $+ ,1,33)
  832. n385=    :end
  833. n386=  }
  834. n387=}
  835. n388=+999:On NOTICE:*password accepted*:*:/window 10 NickServ 2has accepted your password.. 
  836. n389=#15 start
  837. n390=+999:On NOTICE:*are now cleared*:*:/join $parm6
  838. n391=#15 end
  839. n392=999:On NOTICE:*added autoop*:*: {
  840. n393=  if ( %tempaop == On ) {
  841. n394=    set %index $parm8
  842. n395=    mode %opchan +o %opnick
  843. n396=    .msg chanserv aop %opchan del %index
  844. n397=    us opnick opchan index 
  845. n398=  }
  846. n399=  set %tempaop Off
  847. n400=}
  848. n401=;--------------========Ban Protect=======------------
  849. n402=#dontbanme start
  850. n403=1:On BAN:#: {
  851. n404=  if ( $nick == $me ) goto end
  852. n405=  if $banmask iswm $address($me,0) && $me isop $chan {
  853. n406=    mode $chan -ob+b $nick $banmask $address($nick,2)
  854. n407=    .msg chanserv op $chan - $+ $nick
  855. n408=    .notice $nick 2Please Don't Ban Me...
  856. n409=    goto end
  857. n410=  }
  858. n411=  if $banmask iswm $address($me,0) && $me !isop $chan { 
  859. n412=    .msg chanserv unban $chan me
  860. n413=    .msg chanserv op $chan - $+ $nick    
  861. n414=    .msg chanserv op $chan $me
  862. n415=    .notice $nick 2Please Unban Me...
  863. n416=    mode $chan -ob $nick $banmask
  864. n417=  }
  865. n418=  :end
  866. n419=}
  867. n420=1:On DEOP:#: { 
  868. n421=  if ($opnick == $me) && ($nick != $me) {
  869. n422=    window 2 Requesting OP's from 10ChanServ 
  870. n423=    if ( $nick != ChanServ ) { 
  871. n424=      .msg chanserv op $chan - $+ $nick 
  872. n425=    }
  873. n426=    .msg chanserv op $chan $me 
  874. n427=  }
  875. n428=}
  876. n429=#dontbanme end
  877. n430=;-------------==========Add Protect=======--------------
  878. n431=#chanad start
  879. n432=1:On ACTION:* #*:#: {
  880. n433=  ifop $nick $chan
  881. n434=  if ( $result == 200 ) goto end
  882. n435=  set %protectchan $chan * 
  883. n436=  set %checkwords $parms 
  884. n437=  ad.checker $chan $nick %kickwords 
  885. n438=  :end
  886. n439=}
  887. n440=1:On TEXT:* #*:#: {
  888. n441=  ifop $nick $chan
  889. n442=  if ( $result == 200 ) goto end
  890. n443=  set %protectchan $chan * 
  891. n444=  set %checkwords $parms 
  892. n445=  ad.checker $chan $nick %kickwords 
  893. n446=  :end
  894. n447=}
  895. n448=#chanad end
  896. n449=;---------------=======Trade Protect======-----------
  897. n450=#trading start
  898. n451=1:On TEXT:*ftp*:#: {
  899. n452=  ifop $nick $chan
  900. n453=  if ( $result == 200 ) { goto end }
  901. n454=  /.auser 4 $nick 
  902. n455=  /.timer 1 240 /.ruser 4 $nick
  903. n456=  set %checkwords $parms 
  904. n457=  fserve.checker %fservewords 
  905. n458=  if ( $result == 7 ) goto kicker
  906. n459=  if ( $chr(63) !isin %checkwords ) { .ruser 5 $nick | goto end }
  907. n460=  notice $nick 2Sorry10 $nick,2 No Porn Trading Is Allowed in $chan
  908. n461=  set %crtchan $chan
  909. n462=  set %last_join $nick 
  910. n463=  window 2 %temp ñ10 $nick 2is suspected of FTP Advertising
  911. n464=  window 2 %temp ñ Press 12F82 to kick $nick
  912. n465=  goto end
  913. n466=  :kicker
  914. n467=  d.ban 120 $chan $address($nick,3)
  915. n468=  kick $chan $nick No Porn Trading Is Allowed in $chan
  916. n469=  :end
  917. n470=}
  918. n471=1:On ACTION:*ftp*:#: {
  919. n472=  ifop $nick $chan
  920. n473=  if ( $result == 200 ) { goto end }
  921. n474=  /.auser 4 $nick 
  922. n475=  /.timer 1 240 /.ruser 4 $nick
  923. n476=  set %checkwords $parms 
  924. n477=  fserve.checker %fservewords 
  925. n478=  if ( $result == 7 ) goto kicker
  926. n479=  if ( $chr(63) !isin %checkwords ) { .ruser 5 $nick | goto end }
  927. n480=  notice $nick 2Sorry10 $nick,2 No Porn Trading Is Allowed in $chan
  928. n481=  set %crtchan $chan
  929. n482=  set %last_join $nick 
  930. n483=  window 2 %temp ñ10 $nick 2is suspected of FTP Advertising
  931. n484=  window 2 %temp ñ Press 12F82 to kick $nick
  932. n485=  goto end
  933. n486=  :kicker
  934. n487=  ban -u180 $chan $nick 3
  935. n488=  kick $chan $nick No Porn Trading Is Allowed in $chan
  936. n489=  :end
  937. n490=}
  938. n491=@1:On TEXT:*fserv*:#: {
  939. n492=  ifop $nick $chan
  940. n493=  if ( $result == 200 ) { goto end }
  941. n494=  timer 1 240 /.ruser 5 $nick
  942. n495=  .auser 5 $nick 
  943. n496=  set %checkwords $parms 
  944. n497=  fserve.checker %fservewords 
  945. n498=  if ( $result == 7 ) goto kicker
  946. n499=  if ( $chr(63) !isin %checkwords ) { .ruser 5 $nick | goto end }
  947. n500=  notice $nick 2Sorry10 $nick,2 No Porn Trading Is Allowed in $chan
  948. n501=  set %crtchan $chan
  949. n502=  set %last_join $nick 
  950. n503=  window 2 %temp ñ10 $nick 2is suspected of Fserver Advertising
  951. n504=  window 2 %temp ñ Press 12F82 to kick $nick
  952. n505=  goto end
  953. n506=  :kicker
  954. n507=  ban -u180 $chan $nick 3
  955. n508=  kick $chan $nick No Porn Trading Is Allowed in $chan
  956. n509=  :end
  957. n510=}
  958. n511=1:On ACTION:*fserv*:#: {
  959. n512=  ifop $nick $chan
  960. n513=  if ( $result == 200 ) { goto end } /.auser 5 $nick 
  961. n514=  /.timer 1 240 /.ruser 5 $nick
  962. n515=  set %checkwords $parms 
  963. n516=  fserve.checker %fservewords 
  964. n517=  if ( $result == 7 ) goto kicker
  965. n518=  if ( $chr(63) !isin %checkwords ) { .ruser 5 $nick | goto end }
  966. n519=  notice $nick 2Sorry10 $nick,2 No Porn Trading Is Allowed in $chan
  967. n520=  set %crtchan $chan
  968. n521=  set %crtchan $chan
  969. n522=  set %last_join $nick 
  970. n523=  window 2 %temp ñ10 $nick 2is suspected of Fserver Advertising
  971. n524=  window 2 %temp ñ Press 12F82 to kick $nick
  972. n525=  goto end
  973. n526=  :kicker
  974. n527=  d.ban 180 $chan $address($nick,3)
  975. n528=  kick $chan $nick No Porn Trading Is Allowed in $chan
  976. n529=  :end
  977. n530=}
  978. n531=+4:On TEXT:*ftp*:#:/.ruser $nick | /d.ban 180 $chan $address($nick,3) | /kick $chan $nick No FTP Trading.áá %ver
  979. n532=+4:On ACTION:*ftp*:#:/.ruser $nick | /d.ban 180 $chan $address($nick,3) | /kick $chan $nick No FTP Trading.áá %ver
  980. n533=+4:On PART:#:/.ruser 4 $nick
  981. n534=+4:On KICK:#:/.ruser 4 $nick
  982. n535=+5:On TEXT:*serv*:#:/.ruser $nick | /d.ban 180 $chan $address($nick,3) | /kick $chan $nick No Fserving.áá %ver
  983. n536=+5:On ACTION:*serv*:#:/.ruser $nick | /d.ban 180 $chan $address($nick,3) | /kick $chan $nick No Fserving.áá %ver
  984. n537=+5:On PART:#:/ruser 5 $nick
  985. n538=+5:On KICK:#:/ruser 5 $nick
  986. n539=#trading end
  987. n540=;---------------------======Speak Kick======-----------------
  988. n541=+9:On TEXT:*:#:/ruser 9 $nick | d.ban 30 $chan $address($nick,3) | /kick $chan $nick $me bitchslaps $nick $+áá %ver
  989. n542=+9:On NOTICE:*:*: { 
  990. n543=  .ruser 9 $nick 
  991. n544=  set %c $chan(0)
  992. n545=  :loop1
  993. n546=  set %chan $chan(%c)
  994. n547=  If ( $nick ison %chan ) { goto next }
  995. n548=  else dec %c   
  996. n549=  if ( %c > 0 ) goto loop1
  997. n550=  goto end
  998. n551=  :next
  999. n552=  d.ban 30 %chan $address($nick,3)
  1000. n553=  Kick %chan $nick $me laughs at $nick $+ 's stupidityáá %ver
  1001. n554=  :end
  1002. n555=}
  1003. n556=+9:On ACTION:*:#:/ruser 9 $nick | d.ban 30 $chan $address($nick,3) | /kick $chan $nick $me bitchslaps $nick $+ áá %ver
  1004. n557=+9:On NICK:{
  1005. n558=  .ruser 9 $nick 
  1006. n559=  set %c $chan(0)
  1007. n560=  :loop1
  1008. n561=  set %chan $chan(%c)
  1009. n562=  If ( $newnick ison %chan ) { goto next }
  1010. n563=  else dec %c   
  1011. n564=  if ( %c > 0 ) goto loop1
  1012. n565=  goto end
  1013. n566=  :next
  1014. n567=  d.ban 30 %chan $address($nick,3)
  1015. n568=  msg %chan 2Tricky, tricky,10 $nick 2...the old "I Can Change My Nick And Then Talk Bit"....NOPE!!!! 
  1016. n569=  .timer 1 2 kick %chan $newnick Speak Kick Fromáá %ver
  1017. n570=}
  1018. n571=;-------------------===========BOT=========-------------------
  1019. n572=#sdbot enabled
  1020. n573=1:On TEXT:*help*:?: {
  1021. n574=  /notice $nick *******help for $nick*********
  1022. n575=  /notice $nick As a basic user, you have no access.
  1023. n576=}
  1024. n577=200:On TEXT:*help*:?: {
  1025. n578=  /notice $nick *******help for $nick*********
  1026. n579=  /notice $nick sdbot access, sdbot voiceme, sdbot voice (nick)
  1027. n580=}
  1028. n581=210:On text:*help*:?: {
  1029. n582=  /notice $nick **********help for $nick*******
  1030. n583=  /notice $nick sdbot voiceme, sdbot voice (nick), sdbot say (message)
  1031. n584=  /notice $nick sdbot access, sdbot kick (nick), sdbot ban (nick)
  1032. n585=  /notice $nick sdbot opme, sdbot op (nick), sdbot deop (nick)
  1033. n586=}
  1034. n587=211:On text:*help*:?: {
  1035. n588=  /notice $nick **********help for $nick*******
  1036. n589=  /notice $nick sdbot voiceme, sdbot voice (nick), sdbot say (message)
  1037. n590=  /notice $nick sdbot access, sdbot kick (nick), sdbot ban (nick)
  1038. n591=  /notice $nick sdbot opme, sdbot op (nick), sdbot deop (nick)
  1039. n592=  /notice $nick sdbot add aop (nick)
  1040. n593=}
  1041. n594=213:On text:*help*:?: {
  1042. n595=  /notice $nick **********help for $nick*******
  1043. n596=  /notice $nick sdbot voiceme, sdbot voice (nick), sdbot say (message)
  1044. n597=  /notice $nick sdbot access, sdbot kick (nick), sdbot ban (nick)
  1045. n598=  /notice $nick sdbot opme, sdbot op (nick), sdbot deop (nick)
  1046. n599=  /notice $nick sdbot add aop (nick) sdbot shitlist (nick)
  1047. n600=  /notice $nick sdbot add sop (nick)
  1048. n601=}
  1049. n602=200:On text:*sdbot voiceme*:?:/mode $chan +v $nick | /notice $nick command has been logged 
  1050. n603=200:On text:*sdbot voice*:?:/mode $chan +v $parm3 | /notice $nick command has been logged
  1051. n604=210:On text:*sdbot kick*:?: {
  1052. n605=  if ($parm3 == %master) goto no
  1053. n606=  elseif ($Parm3 == $me) goto no
  1054. n607=  else /kick $chan $parm3 | /notice $nick command has been logged
  1055. n608=  {
  1056. n609=    :no 
  1057. n610=    /msg $nick i will not kick $parm3 beacuse i have been programed not to kick $parm3 | /notice $nick command has been logged
  1058. n611=  }
  1059. n612=}
  1060. n613=210:On text:*sdbot ban*:?: {
  1061. n614=  if ($parm3 == %master) goto no
  1062. n615=  elseif ($Parm3 == $me) goto no
  1063. n616=  else /ban $chan $parm3 | /notice $nick command has been logged
  1064. n617=  {
  1065. n618=    :no 
  1066. n619=    /msg $nick i will not ban $parm3 beacuse i have been programed not to ban $parm3 | /notice $nick command has been logged
  1067. n620=  }
  1068. n621=} 
  1069. n622=210:On text:*sdbot opme*:?:/mode $chan +o $nick | /notice $nick command has been logged 
  1070. n623=210:On text:*sdbot op*:?:/mode $chan +o $parm3 | /notice $nick command has been logged
  1071. n624=210:On text:*sdbot deop*:?: {
  1072. n625=  if ($parm3 == %master) goto no
  1073. n626=  elseif ($Parm3 == $me) goto no
  1074. n627=  else /mode $chan -o $parm3 | /notice $nick command has been logged
  1075. n628=  {
  1076. n629=    :no 
  1077. n630=    /msg $nick i will not deop $parm3 beacuse i have been programed not to deop $parm3 | /notice $nick command has been logged
  1078. n631=  } 
  1079. n632=}  
  1080. n633=210:On text:*sdbot say*:?:/msg $chan $nick ( $+ $address $+ ) has used me to say   *  $+ $parm3* $+ *
  1081. n634=211:On join:?:/msg $chan $nick ( $+ $address $+ ) a ñsopñ of mine has just joined $chan
  1082. n635=211:On text:*sdbot add*:?: {
  1083. n636=  if ( $parm3 == aop) goto ok
  1084. n637=  elseif ($parm3 == sop) goto no
  1085. n638=  else goto syntax
  1086. n639=  {
  1087. n640=    :ok 
  1088. n641=    /msg $chan $nick ( $+ $address $+ )  has added $parm4 as a aop of $chan On $fulldate | /guser 13 $parm4 3 | /notice $nick this command has been logged | halt
  1089. n642=    {
  1090. n643=      :no
  1091. n644=      /msg $chan $nick ( $+ $address $+ ) you may not add a sop when you are only a sop | /notice $nick this command has been logged | halt
  1092. n645=      {  
  1093. n646=        :syntax
  1094. n647=        /msg $nick $+ : a syntax error has occured in my database please do not try to do this command again | /notice $nick this command has been logged | halt
  1095. n648=      }
  1096. n649=    }
  1097. n650=  }
  1098. n651=}
  1099. n652=213:On join:?:/msg $chan $nick ( $+ $address $+ ) a ñFounderñ of mine has just joined $chan  
  1100. n653=213:On text:*sdbot shitlist*:?: {
  1101. n654=  if ($parm3 == %master) goto no
  1102. n655=  elseif ($Parm3 == $me) goto no
  1103. n656=  else /mode $chan -o $parm3 | /guser 99 $parm3 3 | /notice $nick command has been logged
  1104. n657=  {
  1105. n658=    :no 
  1106. n659=    /msg $nick i will not shitlist $parm3 beacuse i have been programed not to shitlist $parm3 | /notice $nick command has been logged
  1107. n660=  } 
  1108. n661=}
  1109. n662=213:On text:*sdbot join*:?: {
  1110. n663=  if ($parm3 == #dragonrealm) goto no
  1111. n664=  elseif ($parm3 == #dalnethelp) goto no
  1112. n665=  elseif ($parm3 == #help) goto no
  1113. n666=  elseif ($parm3 == #irchelp) goto no
  1114. n667=  else goto ok
  1115. n668=  {
  1116. n669=    :no
  1117. n670=    /msg $nick i have been programed not to join $parm3 | halt
  1118. n671=    {
  1119. n672=      :ok
  1120. n673=      /join $parm3 | halt
  1121. n674=    }
  1122. n675=  }
  1123. n676=}
  1124. n677=213:On text:*sdbot*add*:?: {
  1125. n678=  if ($parm3 == aop) goto aop
  1126. n679=  elseif ($parm3 == sop) goto sop
  1127. n680=  elseif ($parm3 == founder) goto founder
  1128. n681=  else goto error
  1129. n682=  {
  1130. n683=    :aop
  1131. n684=    /set % $+ $parm4 aop | /guser 10 $parm4 3 | /msg $chan $parm4  has been added as a ñaopñ of $me | halt
  1132. n685=    {
  1133. n686=      :sop
  1134. n687=      /set % $+ $parm4 sop | /guser 11 $parm4 3  | /msg $chan $parm4  has been added as a ñsopñ of $me | halt
  1135. n688=      {
  1136. n689=        :founder
  1137. n690=        /set % $+ $parm4 founder | /guser 13 $parm4 3 | /msg $chan $parm4  has been added as a ñfounderñ of $me | halt
  1138. n691=        {
  1139. n692=          :error
  1140. n693=          /msg $nick $+ :  There is a error in your my script or your writing please check you writing
  1141. n694=        }
  1142. n695=      }
  1143. n696=    }
  1144. n697=  }
  1145. n698=}
  1146. n699=213:On text:*sdbot leave*:?:/part $parm3
  1147. n700=200:On text:*sdbot*access*:?:/msg $chan $nick ( $+ $address $+ ) your access to me is ñAVOICEñ
  1148. n701=210:On text:*sdbot*access*:?:/msg $chan $nick ( $+ $address $+ ) your access to me is ñAOPñ
  1149. n702=211:On text:*sdbot*access*:?:/msg $chan $nick ( $+ $address $+ ) your access to me is ñSOPñ
  1150. n703=213:On text:*sdbot*access*:?:/msg $chan $nick ( $+ $address $+ ) your access to me is ñFOUNDERñ
  1151. n704=#sdbot disabled
  1152.  
  1153. [Raw]
  1154. n0=#alert disabled
  1155. n1=352:*: {
  1156. n2=  if (sphere isin $parm3) { echo 2 $parm2 10*** 47th Sphere User Alert 10***2 $parm6 : $parm3 $+ @ $+ $parm4 }
  1157. n3=}
  1158. n4=315:*:.disable #alert
  1159. n5=#alert end
  1160. n6=#who disabled
  1161. n7=352:*:echo 2 -s $parm2 12 $parm3 $+ 2@10 $+ $parm4 $+ 2 $parm5 12 $parm6* | halt
  1162. n8=315:*:echo 2 -s $parm2 12 $+ $parm3* | echo 2 -s - | .disable #who | halt 
  1163. n9=#who end
  1164. n10=301:*:echo 2 -s $parm2 is away at the moment: $+ 12 $parm3* | halt
  1165. n11=310:*:echo 2 -s $parm2 $+ 12 $parm3* | halt
  1166. n12=311:*:echo 2 -s $parm2 12 $parm3 $+ 2@10 $+ $parm4 $+ 2 $parm5* | halt
  1167. n13=319:*:echo 2 -s Channels:12 $parm3* | halt
  1168. n14=312:*:echo 2 -s Server:12 $parm3 $+ 2 $parm4 $+ 10 $parm5* | halt
  1169. n15=313:*:echo 2 -s $parm2 $parm3 $parm4 12 $+ $parm5* | halt
  1170. n16=317:*:echo 2 -s Idle:10 $duration($parm3) | halt
  1171. n17=318:*:echo 2 -s $parm2 12 $+ $parm3* | echo 2 -s - | halt
  1172. n18=401:*:echo 2 -s $parm2 12 $+ $parm3* | halt
  1173. n19=365:*: halt
  1174. n20=#away disabled
  1175. n21=352:*:if ( G isin $parm7 ) { echo 12 $parm2 Away:10 $parm6 | inc %away 1 } | halt
  1176. n22=315:*:echo 12 $parm2 ñ2Strange Days12ñ Counted ñ10 $+ %away $+ 12ñ user(s) away at the moment | .disable #away | halt 
  1177. n23=#away end
  1178. n24=352:*: {
  1179. n25=  if ( * isin $parm7 ) {
  1180. n26=    .guser ircop $parm6 1 
  1181. n27=    if %block == Off && %joinad == On && % [ $+ [ $parm2 ] ] != joining notice $parm6 Welcome $parm6, my fserve is active: Trigger command: %command Ratio: 1: $+ %ratio ñStrange Daysñ v4.0  
  1182. n28=  }
  1183. n29=  elseif %joinad == On && % [ $+ [ $parm2 ] ] != joining notice $parm6 Welcome $parm6, my fserve is active: Trigger command: %command Ratio: 1: $+ %ratio ñStrange Daysñ v4.0 
  1184. n30=  halt
  1185. n31=}
  1186. n32=315:*:if % [ $+ [ $parm2 ] ] == joining unset % $+ $parm2 | halt
  1187. n33=352:* {
  1188. n34=  set %adrs $parm6 $+ ! $+ $parm3 $+ @ $+ $parm4
  1189. n35=  set %clones $mask(%adrs,2)
  1190. n36=  if ( %clones isin %clist )  { /inc %clns | %nclns = %nclns $parm6 }
  1191. n37=  %clist = %clist %clones
  1192. n38=  set %addy $mask(%adrs,3)
  1193. n39=  inc %ppl
  1194. n40=  if ( 666 isin $level(%addy) ) { kick $parm2 $parm6 Banned - Get Out! }
  1195. n41=  if (+ isin $parm7) { /inc %vppl | %voicen = %voicen $parm6 } 
  1196. n42=  if (($left(2,$parm7) == H@) || ($left(2,$parm7) == G@)) { /inc %fops | %opn = %opn $parm6  }
  1197. n43=  else { /inc %nops }
  1198. n44=  if ( %friendlevel isin $level(%addy) ) { 
  1199. n45=    inc %friend 
  1200. n46=    %frndn = %frndn $parm6 
  1201. n47=    if ($parm6 !isin %voicen) && ($parm6 !isin %opn) && ($me isop $parm2) {
  1202. n48=      mode $parm2 +v $parm6
  1203. n49=    }
  1204. n50=  } 
  1205. n51=  if (G isin $parm7) { /inc %appl | %awayn = %awayn $parm6 }
  1206. n52=  if ($left(2,$parm7) == H*) || ($left(2,$parm7) == G*) { /inc %found | /wavplay freez.wav | %iropn = %iropn $parm6 }
  1207. n53=}
  1208. n54=315:* {
  1209. n55=  if %echoreport == On /report
  1210. n56=  set %echoreport Off
  1211. n57=}
  1212. n58=311:* {
  1213. n59=  set %adrs $parm2 $+ ! $+ $parm3 $+ @ $+ $parm4
  1214. n60=  set %addy $mask(%adrs,3)
  1215. n61=}
  1216. n62=301:* {
  1217. n63=}
  1218. n64=#19 start
  1219. n65=319:* {
  1220. n66=  if (preteen isin $parm3*) goto sickchannels
  1221. n67=  elseif (dad isin $parm3*) goto sickchannels
  1222. n68=  elseif (mom isin $parm3*) goto sickchannels
  1223. n69=  elseif (daughter isin $parm3*) goto sickchannels
  1224. n70=  elseif (son isin $parm3*) goto sickchannels
  1225. n71=  elseif (rape isin $parm3*) goto sickchannels
  1226. n72=  elseif (family isin $parm3*) goto sickchannels
  1227. n73=  elseif (incest isin $parm3*) goto sickchannels
  1228. n74=  else goto end
  1229. n75=  :sickchannels
  1230. n76=  set %chans $parm3*
  1231. n77=  set %c $Channel(0)
  1232. n78=  :loop1
  1233. n79=  If ( $parm2 ison $channel(%c) ) { set %nick_chan $channel(%c) | goto next }
  1234. n80=  else dec %c   
  1235. n81=  if ( %c > 0 ) goto loop1
  1236. n82=  :next
  1237. n83=  d.ban 60 %nick_chan $address($parm2,2)
  1238. n84=  set %l1 $len(%nick_chan) + 2
  1239. n85=  set %l2 $len(%chans)
  1240. n86=  set %chans $mid(%l1,%l2,%chans)
  1241. n87=  kick %nick_chan $parm2 Get Off %chans $+ you sicko pervert...
  1242. n88=  :end
  1243. n89=  us l1 l2 nick_chan chans c
  1244. n90=}
  1245. n91=#19 end
  1246. n92=317:* {
  1247. n93=}
  1248. n94=401:* { 
  1249. n95=}
  1250. n96=318:* { 
  1251. n97=}
  1252. n98=#dis start
  1253. n99=474:* {
  1254. n100=  window 4 You Have Been Banned From $parm2
  1255. n101=  .msg chanserv unban $parm2 me
  1256. n102=}
  1257. n103=#dis end
  1258. n104=367:* {
  1259. n105=  %bannedlist = $parm3 %bannedlist
  1260. n106=  if ( $parm3 iswm %uban ) && ( %unban == On ) {
  1261. n107=  mode $parm2 -b $parm3 }
  1262. n108=  us uban unban
  1263. n109=}
  1264. n110=#unban disabled
  1265. n111=368:* {
  1266. n112=  if ( %unban iswm %bannedlist ) || ( %unban isin %bannedlist ) { mode $parm2 -b %unban } 
  1267. n113=  unset %bannedlist
  1268. n114=  unset %unban
  1269. n115=  .disable #unban
  1270. n116=}
  1271. n117=312:* {
  1272. n118=}
  1273. n119=313:* {
  1274. n120=  window 2 -*ñWARNINGñ*- IRCop Detected!!
  1275. n121=  window 2 áá $parm2*
  1276. n122=  wavplay freez.wav
  1277. n123=}
  1278. n124=#NetClones start
  1279. n125=352:*: {
  1280. n126=  if (%clnnick [ $+ [ $parm4 ] ] != $null) && ($parm4 !isin %clnaddlist) { set %clnaddlist %clnaddlist $parm4 } 
  1281. n127=  set %clnnick [ $+ [ $parm4 ] ] %clnnick [ $+ [ $parm4 ] ] $parm6 | halt
  1282. n128=}
  1283. n129=315:*: {
  1284. n130=  recho -
  1285. n131=  recho 4,1!MK3! $str(50,-) $+ 
  1286. n132=  recho 4,1!MK3! Searching Clones from %clone $+ ...
  1287. n133=  %clnc = 1 | if (%clnaddlist == $null) { recho 4,1!MK3! No Clones found... | goto end }
  1288. n134=  else { goto loop }  
  1289. n135=  :loop
  1290. n136=  recho 4,1!MK3! $str(50,-) $+ 
  1291. n137=  recho 4,1!MK3! Nicks of Clones: %clnnick [ $+ [ $token(%clnc,32,%clnaddlist) ] ]
  1292. n138=  recho 4,1!MK3! Address of clones : $token(%clnc,32,%clnaddlist) $+ 
  1293. n139=  inc %clnc | if ($token(%clnc,32,%clnaddlist) != $null) goto loop
  1294. n140=  :end
  1295. n141=  recho 4,1!MK3! $str(50,-) $+ 
  1296. n142=  recho -
  1297. n143=  unset %cl* | disable #NetClones | halt
  1298. n144=}
  1299. n145=#NetClones end
  1300.